sub main()	dim f as file,s as sound	//f = getfile("").child("WildEep.aiff")	f = getfile("") //the path relative to the script	f = f.child("WildEep.aiff")		msgbox(f.name)	s = f.OpenAsSound()	if s.nil = false then		s.play()	else		msgbox("Unable to play sound.")	end if	//Another way to do it. Warning if it is unable to	//open the sound the following statement will fail.		f.OpenAsSound().play()	end sub